Personal Computer World 2005 October/PCWOCT05.iso/Software/FromTheMag/Ant Movie Catalog 3.5.0.2/amc_install.exe/{app}/Scripts/Debug.pas

Pascal/Delphi Source File | 2005-05-26 | 791b | 42 lines

unit Debug;

const
  SourcePath = 't:\01\';

function GetLocalPage(Address: string): string;
var
  Page: TStringList;
  FileName: string;
begin
  Page := TStringList.Create;
  FileName := '';
  Input('', 'File to read:', FileName);
  Page.LoadFromFile(SourcePath + FileName + '.html');
  Result := Page.Text;
  Page.Free;
end;

function SavePage(Address: string; FileName: string): string;
var
  Page: TStringList;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  Page.SaveToFile(FileName);
  Result := Page.Text;
  Page.Free;
end;

procedure SaveToFile(Text: string; FileName: string);
var
  Page: TStringList;
begin
  Page := TStringList.Create;
  Page.Text := Text;
  Page.SaveToFile(FileName);
  Page.Free;
end;

begin
end.